home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / amms20d.lha / amms / mbudir / janus / login
Text File  |  1995-08-04  |  682b  |  24 lines
  1. ;
  2. ;    ZConnect-Login-Datei
  3. ;
  4. ;    $VER: 2.00 / 04-08-95
  5. ;
  6. break off                    ; Kein Abbruch zulassen
  7. i=0                        ; LOGIN-Zaehler initialisieren
  8. on error LOGIN_ERROR                ; Im Fehlerfall verzweigen
  9.  
  10. POINT_RETRY:
  11. input SYSNAME "Systemname: "            ; Systemnamen holen
  12. if SYSNAME == "" then _goto POINT_RETRY        ; Leereingabe -> wiederholen
  13. if/p SYSNAME == "(ZERBERUS|JANUS|GAST)" then _goto POINT_RETRY ; wenn Fehler, nochmal
  14. i=i+1                        ; LOGIN-Zaehler erhoehen
  15. login "'SYSNAME'"                ; Login fuer System
  16.  
  17. zconnect server                    ; Server-Batch
  18.  
  19. LOGIN_ERROR:
  20. if/i i < 3 then _goto POINT_RETRY        ; Noch Versuche frei ? Ja
  21. logout/fast                    ; Logout
  22. LOGIN_ERROR_1:
  23. goto LOGIN_ERROR_1                ; Bei Fehler Endlos-Schleife
  24.